# print ('my first R script')


#load the file raw_stats
#ignoring header data
perf_data <- read.table('./eaaproject-garycorcoran-sem8/raw_stats.dat',TRUE)
plot(perf_data[,'X.idle'])
plot(perf_data[,'X.idle'],type='b')
plot(100-perf_data[,'X.idle'],type='b',xlab='Time in seconds',ylab ='utilisation(Ui)')

Ui <- mean(100-perf_data[,X.idle'])

d_i <- Ui/94
